5.Introducere în teoria grafurilor 


Multe probleme sunt formulate în limbaj natural utilizând termenii: obiecte şi 
conexiuni între acestea. De exemplu, fiind dată o hartă a liniilor aeriene pentru o 
anumită zonă, am putea fi interesaţi să aflăm răspunsul la întrebări precum: “Care 
este cea mai rapidă(temporal vorbind) rută din punctul A în punctul B” sau “Care 
este cea mai ieftină (d.p.d.v al costurilor) rută din punctul A spre punctul B”. Un alt 
exemplu poate fi considerat o reţea de distribuţie pentru un anumit produs, caz în 
care obiectele ar fi reprezentate de distribuitori iar relaţiile între aceştia ar consta în 
numărul de produse comandate. În acest sens am putea fi interesaţi în a afla: “care 
este “adâncimea” reţelei pornind de la un anumit distribuitor” sau “câte produse au 
fost achiziţionate şi/sau vândute pe o anumită ramură a reţelei”. Un al treilea 
exemplu ar putea fi considerat planificarea activităţilor într-un proces de producţie, 
obiectele fiind activităţile ce trebuie realizate iar interconexiunile ar reprezenta 
ordinea de execuţie a acestora sau timpul de execuţie al fiecăreia. O posibilă 
întrebare în acest caz ar fi “ când trebuie executată fiecare activitate”. 

În general, pentru rezolvarea unor probleme precum cele enunțate mai sus se 
folosesc imagini grafice gen diagrame, schiţe, grafice etc. O reprezentare dintre cele 
mai utilizate este cea prin grafuri. Acestea sunt utilizate în special pentru 
vizualizarea sistemelor si situaţiilor complexe. În general, vom reprezenta 
componentele acestora prin puncte în plan iar relaţiile (legăturile, dependentele, 
influenţele etc) dintre componente prin arce de curbă cu extremităţile în punctele 
corespunzătoare. Între două puncte pot exista unul sau mai multe segmente (în 
funcţie de câte relaţii dintre acestea, care ne interesează, există) iar segmentelor li 
se pot asocia sau nu orientări (după cum se influenţează cele două componente 
între ele), numere care să exprime intensitatea relaţiilor dintre componente etc. 

Este evident, totuşi, că această metodă are limite, atât din punct de vedere uman 
(prea multe puncte şi segmente vor face desenul atât de complicat încât se va 
pierde chiar scopul pentru care a fost creat - claritatea şi simplitatea reprezentării, 
aceasta devenind neinteligibilă) cât şi din punct de vedere al tehnicii de calcul (un 
calculator nu poate "privi" un desen ca un om). 

Din acest motiv, alături de expunerea naiv-intuitivă a ceea ce este un graf, dată 
mai sus, se impune atât o definiţie riguroasă cât şi alte modalităţi de reprezentare a 
acestora, adecvate în general rezolvărilor matematice/algoritmice. 


5.1. Glosar de termeni 


Definiţia 1. Se numeşte graf o colecţie de noduri şi arce . Nodurile sunt 
obiecte care pot avea diverse atribute (proprietăţi) iar arcele sunt conexiuni între 
două noduri care pot fi reprezentate de asemenea ca obiecte cu proprietăţi ce 
caracterizează respectiva relaţie. 

Ca urmare, putem nota graful G = (N, A) în care N este mulţimea nodurilor 
(cunoscute în teorie şi sub numele de vârfuri) iar A este mulţimea arcelor. Un arc va 
fi notat (v,w) €A, unde v şi w e N sunt cele două vârfuri conectate prin respectivul 
arc. Spunem astfel că v este adiacent lui w şi w este adiacent lui v. 

Figura 5-1 reprezintă două ipostaze grafice ale aceluiaşi graf. 
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Figura 5-1 Două variante de reprezentare vizuală ale unui graf 


Definiţia 2. Se numeşte graf orientat un graf în care conexiunile între noduri 
au o anumită direcţie. În acest caz perechea (v,w) deţine o orientare în sensul că 
reprezintă o relație de la v la w (nu şi invers ca în cazul grafurilor). Nodul v se 
numeşte nod iniţial sau extremitate iniţială a arcului (v,w) iar nodul w se 
numeşte nod final sau extremitate finală a arcului (v,w). Arcul (v,w) este 
incident spre interior vârfului w şi incident spre exterior vârfului v. Dacă pentru 
un arc nodul iniţial coincide cu nodul final atunci acesta se numeşte buclă. Nodurile 
v şi w se vor numi adiacente dacă există cel puţin unul din arcele (v,w) şi (w,v). 

Figura 5-2 reprezintă o variantă de graf orientat pornind de la graful din figura 5- 


Figura 5-2 Graf orientat 


Spre exemplu, un graf orientat poate reprezenta reţeaua de străzi a unui oraş: 
nodurile reprezintă intersecțiile iar arcele reprezintă străzile. O stradă cu sens unic 
este reprezentată printr-un singur arc, în tim ce o stradă cu două sensuri de mers 
este reprezentată prin două arce. 

Asa cum se poate intui, orice graf G(N,A) poate fi reprezentat ca un graf orientat 
G'(N',A')considerând pentru fiecare arc (v,w) €A cele două perechi orientate: (v,w) 
EA’ si (w,v) €A’. 

Definiţia 3. Se numeşte graf etichetat (sau ponderat) acel graf în care fiecărui 
arc Îi este asociată o valoare (numită etichetă), valoare care caracterizează relaţia 
între cele noduri din perspectiva problemei de rezolvat. Valoare poate reprezenta 
spre exemplu : distanţă, cost, timp, etc. 

Astfel, dacă am considera graful din figura 5-1 o hartă rutieră, am putea asocia 
fiecărui arc distanţa între două localităţi (figura 5-3). 


Figura 5-3 graf etichetat 


Bineînţeles că un graf poate fi şi orientat-etichetat 


lată în continuare şi alte noţiuni fundamentale de teorie a grafuri: 


1. Gradul - gradul uni vârf n, este egal cu numarul muchiilor(arcelor) incidente cu 
varful n si se noteaza cu d(n). Un varf cu grad 1, se numeste varf terminal. Un 
vârf care are gradul 0, se numeşte varf izolat. 

2. arce adiacente: arce care au o extremitate comună; 

3. drum într-un graf: o mulţime ordonată de noduri ale grafului: (na, nz, ..., nx), cu 

proprietatea că există toate arcele de forma (ni,ni+1) i = 1,...,k-1; 
. lungimea unui drum: este numărul arcelor care îl formează; 
. drum elementar: un drum în care fiecare nod apare o singură dată; 


. drum simplu: un drum în care fiecare arc apare o singură dată; 
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. putere de atingere a unui nod ni în graful G: numărul de noduri la care se 
poate ajunge din ni. Puterea de atingere se noteazá cu p(ni) 


8. drum hamiltonian: un drum elementar care trece prin toate nodurile grafului; 
9. drum eulerian: un drum simplu care conţine toate arcele grafului; 


10. lanţ: un drum în care arcele nu au neapărat acelaşi sens de parcurgere; Un 
lant este un sir de varfuri, L=[n1,n2,....,nk], cu proprietatea ca oricare două 
vârfuri vecine sunt adiacente, adică nl este adiacent cu n2, ..... , nk-1 este 
adiacent cu nk si n1, n2, ..., nkeN. Vârfurile n1 si nk se numesc extremitatile 
lanţului, iar lungimea lantului este k+1. Lanţul este elementar daca varfurile 
n1, n2, ...,nk sunt distincte două cate douá(adicá, sá nu se treacă de doua ori prin 
acelasi vârf). 


11. circuit: un drum în care nodul iniţial coincide cu cel final; 

12. circuit elementar: un drum în care fiecare nod apare o singură dată, cu 
excepţia celui final, care coincide cu cel iniţial; 

13. circuit simplu: un drum în care fiecare arc apare o singură dată; 

14. circuit hamiltonian: un circuit care trece prin toate nodurile grafului; 

15. ciclu: este un circuit în care arcele nu au neapărat acelaşi sens de 
parcurgere; 

16. ciclu elementar: un ciclu în care fiecare nod apare o singură dată, cu 


excepţia celui final, care coincide cu cel iniţial; 

17. ciclu simplu: un ciclu în care fiecare arc apare o singură dată; 

Observaţie: Într-un graf neorientat noţiunile de drum şi lanţ sunt echivalente şi 
de asemenea cele de circuit şi ciclu. 

18. graf partial al unui graf G = (N,A): este un graf G'(N,A') cu A' c A; 

19. graf tare conex: este un graf în care între oricare două noduri există cel 
puţin un drum; 

20. graf simplu conex: este un graf în care între oricare două noduri există 
cel puţin un lanţ; 

21. Observaţie: Pentru grafuri neorientat noţiunile de tare conex şi simplu 
conex sunt echivalente, graful numindu-se doar conex; 

22. subgraf al unui graf G = (N,A) este un graf H(X,Y), unde X-N, iar muchiile 
din mulţimea Y sunt toate muchiile din mulţimea A care au ambele extremităţi in 
mulţimea de vârfuri X. Deci, un subgraf H al unui graf G, se obţine prin eliminarea 
unui anumit numar de varfuri şi a tuturor muchiilor incidente cu acestea 

23. componenta tare conexá a unui graf G = (N,A): este un subgraf al lui G 
care este tare conex si nu este subgraful nici unui alt subgraf tare conex al lui G 
(altfel spus, între oricare două noduri din componentă există cel puţin un drum şi 
nu mai există nici un nod în afara componentei legat printr-un drum de un nod al 
componentei). 


Definiţia 4. Un graf conex aciclic este numit arbore liber. El poate fi convertit 
într-un arbore orientat alegând un nod oarecare drept rădăcină şi înlocuind 
fiecare muchie cu un arc orientat dinspre rădăcină. Un arbore orientat deţine 
proprietatea că pentru un nod va exista un singur arc incident spre interior (arc de 
intrare ). 


Arbore liber Arbore orientat (cu 
rădăcină) 


5.2. Tehnici de reprezentare ale unui graf 


Pentru a procesa un graf prin intermediul unui program trebuie în primul rând sa 
decidem cum să reprezentăm graful respectiv în memoria calculatorului. 

Deşi există mai multe modalităţi de reprezentare a unui graf “pe înţelesul” 
calculatorului, teoria de specialitate a consacrat două tehnici: 

1. matricea de adiacente 

2. liste de adiacente 

În funcţie de necesităţile de prelucrare, fiecare din cele două tehnici de 
reprezentare are avantaje şi dezavantaje. De asemenea, în funcţie de modul de 
reprezentare vom obţine implementări diferite ale algoritmilor clasici de prelucrare a 
grafurilor. 

Pentru că există ideea general acceptată că reprezentarea prin liste de adiacente 
este mult mai flexibilă, această tehnică o vom utiliza şi noi în toate exemplele ce vor 
urma. 

Primul pas ce trebuie efectuat înainte de a aborda cele două tehnici de 
reprezenatare este de a atribui un număr întreg fiecărui nod în parte (1..N). 
Sunt două motive principale pentru care trebuie să întreprindem această acţiune: 


1. nodurile pot reprezenta (în funcţie de natura problemei) obiecte deosebit 
de complexe, fapt pentru care reprezentarea fiecărei perechi de noduri 
adiacente (arce) ar duce la redundantá şi risipă de memorie; 

2. prin atribuirea unui număr intreg putem reprezenta nodurile ca elemente 
ale unui vector, urmând ca arcele (relaţiile) să fie reprezentate prin perechi 
de întregi în loc de perechi de obiecte. De altfel, după cum vom vedea ceva 
mai târziu, şi performanţele algoritmilor clasici de prelucrare a grafurilor 
sporesc simţitor, aceştia fiind optimizati pentru a prelucra nodurile prin 
intermediul poziţiei lor în vector 

Aşadar, pentru graful din figura 5-1 (fie el orientat (fig 5-2) sau ponderat (fig 5-3)) 
vom construi un tablou cu N elemente (fig 5-5), fiecare nod reprezentând un 
element. Ulterior ne vom referi la un nod (şi-l vom reprezenta în diverşi algoritmi sau 
diverse structuri de stocare) prin intermediul poziţiei lui în tablou în loc de a 
manipula obiectul-nod în sine. 
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Figura 5-4 Primul pas în reprezentarea grafurilor: identificarea nodurilor prin intermediul unor 
întregi (1..N) şi plasarea lor pe poziţia corespunzătoare în tabloul Noduri. 


Cel de-al doilea pas reprezintă esenţa reprezentării grafului prin faptul că vom 
aborda una din cele două tehnici pentru reprezentarea arcelor. 


5.2.1. Reprezentarea prin matrice de adiacente 

Fie dat graful G=(N,A) 

Matricea de adiacente M a grafului G nu este altceva decât un tablou de 
dimensiune NXN (matrice pătrată) în care : 

M(i,j) = 1 dacă există un arc de la noduli la nodul j , adică (i,j) e A 

= 0 dacă nu există arc de la noduli la nodulj 

Observaţie! Nu uităm că primul pas a fost de a atribui numere întregi fiecărui nod 

Aşă cum spuneam şi mai devreme, pentru grafuri neorientate, arcul (i,j) poate 
fi reprezentat prin două arce orientate (i,j) şi (j,i). lată de ce, matricea de adiacentá 
pentru un graf neorientat va fi simetrică faţă de diagonala principală. Figura 5-5 
ilustrează această matrice pentru graful din figura 5-1, doar că s-au omis valorile O 
pentru a fi mai uşor de identificat vizual arcele 


IA) 1B IC) 4D XE) GE AG) 8H) A) 
1 1 1 


Figura 5-5. Reprezentarea grafului din figura 5-1 prin matrice de adiacente 


Într-un graf orientat matricea nu va mai fi simetrică faţă de diagonala 
principală, arcele având o direcţie stabilită. Astfel, în graful din figura 5-2 putem 
spune că există un arc de la A la B (noduri reprezentate în tablouri Noduri ca 
elemente la poziţia 1 şi 2) dar nu şi invers. 


A) AB) XC) 4D) XE) GE  7G) 8H AD 
1(A) 1 1 1 


Figura 5-6. Reprezentarea grafului orientat din figura 5-2 prin matrice de adiacente (várfurile 
adiacente sunt reprezentate pe linie) 

Într-un graf ponderat (etichetat) în locul valorilor 1 sau 0 care indică 
prezenţa, respectiv absenţa unui arc, vom utiliza eticheta (costul) arcului ca valoare 
pentru elementul M(i,j)pentru a indica atât existenţa arcului cât şi valoarea asociată 
lui şi o valoare ce nu aparţine domeniului etichetelor (spre ex. null sau -1) pentru a 
indica absenţa arcului 


IA) _2B) 3C) 4D) XE) 6® 7(G) 85) 90) 
1(A) 80 60 100 | 130 
2(B) | 80 
3(C) 60 
4A(D) 120 |100 
5(E) 120 100 |100 
6(F) | 100 100 |100 
7(G) |130 100 
8(H) 50 
91 50 


Figura 5-7. Reprezentarea grafului etichetat din figura 5-3 prin matrice de adiacente 


Din cele prezentate se poate intui cá existá cel putin douá dezavantaje ale 
reprezentării prin matrice de adiacente: (1)utilizarea ineficientă a memoriei în cazul 
în care avem de-a face cu un număr relativ mic de arce şi (2) tablourile sunt 
structuri de date statice, astfel încât adăugarea/ştergerea unui nod al grafului poate 
constitui o operaţie complexă. 


5.2.2. Reprezentarea prin liste de adiacente 


Listele de adiacente constituie cea mai flexibilă şi larg utilizată tehnică de 
reprezentare a grafurilor în scopul manipulării acestora din urmă de către diverşi 
algoritmi. 

În această reprezentare, pentru fiecare nod se păstrează o listă a nodurilor 
adiacente acestuia. 

Modul de implementare a acestor liste diferă de la un limbaj la altul. În mod clasic 
(după cum prezintă majoritatea lucrărilor de specialitate), pentru un graf G=(N,A), 
listele cu nodurile adiacente se pot implementa prin: 

1. un tablou cu două linii şi N+2A coloane pentru graf (deoarece trebuie 
reprezentat atât arcul (i,j) cât şi corespondentul său (j,i)) sau N+A coloane 
pentru graf orientat; elementele primei linii vor fi constituite din noduri iar a 
doua line va reprezenta adresa (indicele) coloanei din tablou ce conţine pe 
prima linie următorul nod adiacent. De asemenea nodurile vor fi identificate 
prin întregul asociat la pasul 1 pentru a evita redundanta reprezentării 
obiectelor ca atare. Astfel, pentru a reprezenta graful orientat din figura 5-2 
vom construi următorul tablou: 

Graf (1 to 2, 1 to 21) - unde 21 = 9 (numarul nodurilor) + 12 numărul arcelor 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 2 
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Figura 5-8 Implementarea listelor de adiacentá prin intermediul unui tablou 


2. printr-o structură de date complexă, dinamică, denumită chiar /istă, ce se 
bazează pe pointeri. În această structură, un nod adiacent este reprezentat 
printr-un obiect care deţine două atribute: nodul adiacent (reprezentat prin 
întregul asociat) şi un pointer (link, adresă de memorie) spre următorul nod 
adiacent (figura 5-9). Astfel se poate construi un vector cu un număr de 
elemente egal cu numărul de noduri, fiecare element fiind constituit dintr-un 
pointer către primul obiect-nod adiacent 
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Figura 5-9 reprezentarea grafului orientat din figura 5-2 prin liste de adiacentá în manieră clasică 


Notă. Bineînţeles că pentru un graf neorientat fiecare arc (i,j) va fi reprezentat în 
două liste de adiacente: atât în lista corespunzătoare nodului / cât şi cea a lui j 


Aşa cum am văzut mai devreme, există şi grafuri etichetate (fiecărui arc i se 
asociază o valoare). Dacă în cazul matricelor de adiacente modalitatea de 
reprezentare era destul de uşor de intuit (vezi fig 5-7), pentru reprezentarea 
grafurilor etichetate prin liste de adiacente trebuie să avem în vedere faptul 
că fiecare element al unei asemenea liste (reprezentând un nod adiacent) nu este 
altceva decât un obiect care deţine două atribute: identificatorul (indicele, întregul 
asociat) nodului adiacent şi un pointer spre următorul nod adiacent. Ca urmare, fiind 
vorba de un obiect, nu avem decât să adăugăm la definiţia clasei din care provine 
încă un atribut (sau mai multe) pentru a păstra valoarea/valorile asociate 
respectivului arc. În acest caz, listele de adiacentá vor conţine elemente-obiect cu 
următoarea structură: nodAdiacent, etichetal, ii ; etichetak, 
pointerNextElement. Figura 5-10 ilustrează o asemenea structură de reprezentare 
a grafului din figura 5-3, structură în care fiecare element-obiect al listelor de 
adiacente deţine şi un atribut suplimentar pentru păstrarea distanţei între două 
noduri. 
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Figura 5-10 reprezentarea grafului neorientat etichetat din figura 5-3 prin liste de adiacentá 


5.2.3. Reprezentarea grafurilor în VisualBasic. Un model de 
implementare a listelor de adiacentá 


Ultima structură prezentată în secţiunea anterioară este consacrată în literatura 
de specialitate ca fiind modalitatea cea mai flexibilă de reprezentare a datelor, 
majoritatea algoritmilor clasici de prelucrare abordând graful în această manieră 

Problema care se pune în acest moment este de a identifica modalitatea de 
implementare a listelor de adiacentá (varianta 2 prezentată mai sus - fig 5-9) într-un 
anumit limbaj. În speţă, este vorba de Visual Basic. 

Pentru că VB nu oferă un tip de dată pointer (prin care să se manipuleze adrese 
de memorie) nu vom putea recurge la maniera clasică de implementare. Putem 
totuşi să identificăm o structură de date dinamică, ce poate fi asociată unei liste, 
sub forma unui obiect Collection. După cum am arătat în capitolul 2, secţiunea 
2.3, un obiect Collection reprezintă o colecţie dinamică de elemente. Elementele 
pot fi date de tip scalar (Double, Integer, String, Boolean) sau pot fi la rândul lor 
obiecte. Un obiect Collection deţine metode specifice pentru 
adăugarea/extragerea/ştergerea unui element, metode ce determină 
comportamentul dinamic. 

Ca urmare, am putea reprezenta arcele grafului G=(N,A) ca un obiect Collection 
„să-i zicem Graf, cu N elemente, fiecare element Graf.item(i) fiind la rândul său 
un obiect Collection ale cărui elemente vor fi nodurile adiacente nodului i (fiecare 
nod fiind reprezentat prin indicele/întregul asociat la pasul 1). Figura 5-11 ilustrează 
reprezentarea, în VB, a grafului orientat din figura 5-2 prin intermediul obiectelor 
Collection. Se observă că şi în cazul nodurilor care nu deţin adiacente se 
construieşte un obiect Collection doar că acesta nu va avea elemente. 
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3 (nodurile adiacente 
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Figura 5-11 implementarea listelor de adiacentá sub formă de obiecte Collection în VB pentru 
reprezentarea grafului orientat din figura 5-2 


lată şi secvenţa de cod VB: 


Listing 5-1. O primă variantă de încărcare a unui graf 


Sub Graf5 2() 
Dim noduri(1 To 9) 


noduri(1) = "A" 
noduri(2) = "B" 
noduri(3) = "C" 
noduri(4) = "D" 
noduri(5) = "E" 
noduri(6) = "F" 
noduri(7) = "G" 
noduri(8) = "H" 
noduri(9) = "I" 


Dim graf, noduriAdiacente As Collection 
Set graf = New Collection 


'initializam graful cu obiecte Collection pentru listele cu nodurile adiacente 


For i = 1 To 9 
graf.Add New Collection 
Next 


' construim lista de noduri adiacente pentru nodul 1 (A) 
Set noduriAdiacente = graf.Item(1) 

noduriAdiacente.Add (2) 

noduriAdiacente.Add ( 
noduriAdiacente.Add ( 
'nodul 2 (B) si 3 (C) colectie vida 

' construim lista de noduri adiacente pentru nodul 4 (D) 
Set noduriAdiacente = graf.Item(4) 


noduriAdiacente.Add (5) 


' construim lista de noduri adiacente pentru nodul 5 (E) 
Set noduriAdiacente = graf.Item(5) 

noduriAdiacente.Add (7) 
noduriAdiacente.Add (6) 
noduriAdiacente.Add (4) 


' nodul 6 (F) 

Set noduriAdiacente = 
noduriAdiacente.Add ( 
noduriAdiacente.Add ( 


raf.Item(6) 


'nodul 7 (G) 

Set noduriAdiacente = graf.Item(7) 
noduriAdiacente.Add ( 
noduriAdiacente.Add ( 


"nodul 9 (I) 
Set noduriAdiacente = graf.Item(9) 
noduriAdiacente.Add (8) 


' printarea grafului pentru testarea incarcarii: 

nod = 1 

For Each lista In graf 
Debug.Print (nod € "->" € getStringFromColectie(lista)) 
nod = nod + 1 

Next 

End Sub 


Se observă că în final, pentru testarea încărcării grafului, se utilizează funcţia 
getStringFromColectie(colectie), ce va oferi o reprezentare String a listelor de 
adiacentá asociate nodurilor. Definiţia acestei funcţii o regăsim în listingul 5-2. 

Listing 5-2. Definiţia funcţiei getStringFromColectie 


Function getStringFromColectie(lista) ' pentru diverse print-uri in faza de testare 
strLista = "" 
For Each nod In lista 
strLista = strLista € nod € "," 
Next 
getStringFromColectie = strLista 


End Function 


Figura 5-12 rezultatul executiei procedurii de incárcare (listing 5-1) a grafului orientat din fig 5-2 


Pentru grafuri ponderate (etichetate), vom construi o clasá , elementele 
colecţiilor ce conţin nodurile adiacente fiind apoi obiecte din această clasă. 


Clasa o vom denumi Arc şi va conţine două atribute: unul pentru stocarea nodului 
adiacent şi altul pentru stocarea valorii asociate arcului (listing 5-3). 
Notă. Vezi capitolul 2, secţiunea 2.3 pentru detalii privind construirea claselor şi 
manipularea obiectelor în VB. 
Listing 5-3 Definiţia clasei Arc 


Public nodAdiacent As Integer 
Public cost As Double 


lată şi secvenţa de cod VB pentru încărcarea grafului neorientat ponderat din 
figura 5-3 (vezi şi figura 5-10) 
Listing 5-4. O secvenţă de cod VB pentru încărcarea grafului ponderat din figura 5-3 


Sub Graf5_3() 
Dim noduri(1 To 9) 


noduri(1) = "A" 
noduri(2) = "B" 
noduri(3) = "C" 
noduri(4) = "D" 
noduri(5) = "E" 
noduri(6) = "F" 
noduri(7) = "G" 
noduri(8) = "H" 
noduri(9) = "I" 


Dim graf, noduriAdiacente As Collection 
Dim v arc As arc 


Set graf = New Collection 
'initializam colectiile pentru listele cu nodurile adiacente 


For i = 1 To 9 

graf.Add New Collection 
Next 
' construim lista de noduri adiacente pentru nodul 1 (A) 
Set noduriAdiacente = graf.Item(1) 
Set v_ arc = New arc 
v_arc.nodAdiacent = 2 
v_arc.cost = 80 
noduriAdiacente.Add v_ arc 
Set v arc = New arc 
v_arc.nodAdiacent = 3 
v_arc.cost = 60 
noduriAdiacente.Add v_ arc 
Set v_ arc = New arc 
v_arc.nodAdiacent = 7 
v_arc.cost = 130 
noduriAdiacente.Add v_ arc 


'nodul 2 (B) 

Set noduriAdiacente = graf.Item(2) 
Set v_ arc = New arc 
v_arc.nodAdiacent = 1 

v_arc.cost = 80 
noduriAdiacente.Add v arc 


"nodul 3(C) 

Set noduriAdiacente = graf.Item(3) 
Set v arc = New arc 
v_arc.nodAdiacent = 1 

v_arc.cost = 60 
noduriAdiacente.Add v_ arc 


' nodul 4 (D) 

Set noduriAdiacente = graf.Item(4) 
Set v_ arc = New arc 
v_arc.nodAdiacent = 5 

v_arc.cost = 120 
noduriAdiacente.Add v_ arc 

Set v arc = New arc 
v_arc.nodAdiacent = 6 

v_arc.cost = 100 
noduriAdiacente.Add v_ arc 


' nodul 5 (E) 

Set noduriAdiacente = graf.Item(5) 
Set v_ arc = New arc 
v_arc.nodAdiacent = 7 
v_arc.cost = 100 
noduriAdiacente.Add v_ arc 
Set v_ arc = New arc 
v_arc.nodAdiacent = 6 
v_arc.cost = 100 
noduriAdiacente.Add v_ arc 
Set v_arc = New arc 
v_arc.nodAdiacent = 4 
v_arc.cost = 120 
noduriAdiacente.Add v_ arc 


' nodul 6 (F) 

Set noduriAdiacente = graf.Item(6) 
Set v_ arc = New arc 
v_arc.nodAdiacent = 1 
v_arc.cost = 100 
noduriAdiacente.Add v_ arc 
Set v arc = New arc 
v_arc.nodAdiacent = 4 
v_arc.cost = 100 
noduriAdiacente.Add v_ arc 
Set v_arc = New arc 
v_arc.nodAdiacent = 5 
v_arc.cost = 100 
noduriAdiacente.Add v_ arc 


'nodul 7 (G) 

Set noduriAdiacente = graf.Item(7) 
Set v arc = New arc 
v_arc.nodAdiacent = 1 

v_arc.cost = 130 
noduriAdiacente.Add v_ arc 

Set v arc = New arc 
v_arc.nodAdiacent = 5 

v_arc.cost = 100 
noduriAdiacente.Add v_ arc 


' nod 8 (H) 

Set noduriAdiacente = graf.Item(8) 
Set v arc = New arc 
v_arc.nodAdiacent = 9 

v_arc.cost = 50 
noduriAdiacente.Add v_ arc 


'nodul 9 (I) 

Set noduriAdiacente = graf.Item(9) 
Set v_arc = New arc 
v_arc.nodAdiacent = 8 

v_arc.cost = 50 
noduriAdiacente.Add v_ arc 


' printarea grafului pentru testarea incarcarii: 
nod = 1 


For Each lista In graf 
Debug.Print (nod € "->" € getStringFromColectieArce(lista)) 
nod = nod + 1 

Next 

End Sub 


Pentru afisarea (ín fazele de testare) a unui graf ponderat observám cá s-a recurs 
la o altá functie, getStringFromColectieArce(), functie ce are rolul de a construi 
cáte un String pentru o colectie de noduri adiacente cu elemente-obiect din clasa 
Arc. În acest sir de caractere fiecare arc va fi reprezentat printr-o secvenţă de 
genul: nodAdiacent+cost. Definiţia funcţiei o regăsim în listingul 5-5. 

Listing 5-5. Definiţia funcţiei getStringFromColectieArce 
Function getStringFromColectieArce(lista) ' pentru diverse print-uri in faza de testare 


Dim nod As New arc 


strLista = "" 
For Each nod In lista 
strLista = strLista € nod.nodAdiacent € "4" € nod.cost 4 "," 
Next 
getStringFromColectieArce = strLista 


End Function 


În urma execuţiei procedurii din listing 5-4 vom obţine în fereastra Immediate 


reprezentarea text a grafului din figura 5-3. 
| graf5_3 
1->2480, 3460, "74130, 
2->1480, 
3->1460, 
4->54120, 68100, 
5->7#100, 64100, 44120, 


6->14100, 44100, 54100, 
7->1#130, 58100, 
8->9450, 

9->8450, 


Figura 5-13 


5.2.4. Încărcarea unui graf dintr-un fişier text 


Bineînţeles că varianta de încărcare a unui graf prezentată în listingul 5-1 nu 
poate fi considerată decât naivă, orice modificare adusă grafului din figura 5-2, sau 
încărcarea unui alt graf necesitând intervenţii asupra codului procedurii respective. 

Un prim pas în generalizarea procedurii de încărcare ar putea fi constituit de 
iniţierea unui dialog cu utilizatorul pentru a obţine numărul de noduri şi arcele. 


Mai mult, trebuie să ne gândim şi la faptul că, în realitate graful va fi stocat pe 
disc (într-un fişier text sau într-o tabelă a unei baze de date) pentru a realiza 
prelucrări ulterioare sau modificări. 

Deşi pot exista mai multe variante de stocare a grafului într-un fişier text, 
probabil că cea mai intuitivă constă în păstrarea fiecărei perechi de noduri adiacente 
(Lj) pe câte o linie distinctă, nodurile fiind separate printr-un caracter special, să 
zicem virgula. Continuând ideea, putem institui o regu/ă prin care prima linie a 
fişierului va stoca întotdeauna numărul de noduri (pentru a şti numărul de elemente 
cu care vom iniţializa colecţia Graf). 

Figura 5-14 ilustrează conţinutul fişierului text (ASCII) pentru stocarea grafului 
orientat din figura 5-2 


mot 


ile Edit Format 


9 
IL, 
Es 
1, 
4, 
5, 
5, 
53 
6, 
5, 
Es 
7, 
9, 


2 
3 
7 
5 
7 
8 
4 
1 
4 
1 
5 
8 


Figura 5-14 O variantă de stocare a grafurilor nenetichetate într-un fişier text 


Observație. Pentru detalii privind lucrul cu fişiere în VB, vezi capitolul 16, p 149- 
154, din lucrarea “VisualBasic. Primii paşi... şi următorii” Polirom 2001. 
Instrucţiunea 

Line Input numărFisier, v Linie String 

va extrage din fişier prima linie sau linia următoare unei citiri anterioare şi o va 
încărca în variabila v Linie String 


Având în vedere că un fişier text poate fi citit în VB linie cu linie, pentru a încărca 
graful în structura de liste de adiacentá descrisă în secţiunea anterioară, nu avem 
apoi decât să efectuăm următoarele operaţii: 

1. citeşte prima linie din fişier care, aşa cum am spus mai devreme, reprezintă 

numărul de noduri 

2. iniţializeaza colectia Graf cu un număr de elemente Collection egal cu 

numărul de noduri 

3. cât timp mai sunt linii în fişier 

a. citeşte linia următoare 
b. extrage nodul iniţial (şirul de caractere din stânga virgulei) 
c. extrage nodul final (şirul de caractere din dreapta virgulei) 


d. extrage din Graf elementul Collection de la poziţia nodInitial 
e. adaugă la la această colecţie nodul final (nodul adiacent) 
4. (opţional) testează încărcarea grafului prin afişarea nodurilor şi a listelor de 
adiacentá asociate, din colecţia Graf 
Funcţia din listingul 5-6 primeşte ca parametru adresa pe disc a fişierului şi 
returnează colecţia Graf care reprezintă graful încărcat din fişier. 


Listing 5-6 Funcție pentru încărcarea unui graf dintr-un fişier cu structură similară celei 
din fig. 5-14 


Function incarcaGrafDinFisier(filePath As String) As Collection 


Dim graf As Collection 
Dim noduriAdiacente As Collection 
Set graf = New Collection 


' deschid fisierul 
Open filePath For Input As +1 


' preiau numarul de noduri (prima linie din fisier) 
Line Input 41, NrNoduri 


' initializez elementele-colectie ale grafului 
For i = 1 To Val(NrNoduri) 

graf.Add New Collection 
Next 


nodInitial = "" 
nodFinal = "" 
' incarc nodurile adiacente unul cate unul prin citirea cate unei linii din fisier 
Do While Not EOF(1) 
' extrag linia următoare din fisier în variabila ArcString 
Line Input #1, ArcString 


pozitieVirgula = InStr(ArcString, ",") 


' extrag nodurile (caracterele din stânga si dreapa virgulei) 
nodInitial = Left(ArcString, pozitieVirgula - 1) 
nodFinal = Right(ArcString, Len(ArcString) - pozitieVirgula) 


' extrag lista de adiacente a nodului Initial 
Set noduriAdiacente = graf.Item(Val(nodiInitial)) 


' adaug nodul adiacent in lista 
noduriAdiacente.Add (Val(nodFinal)) 
Loop 


' inchide fişierul 
Close +1 


' testam incarcarea grafului prin afisarea listelor de adiacentá 

nod = 1 

For Each lista In graf 
Debug.Print (nod € "->" € getStringFromColectie(lista)) 
nod = nod + 1 

Next 

Set incarcaGrafDinFisier = graf 

End Function 


Pentru testarea încărcării grafului s-a utilizat funcţia getStringFromColectie() 
definită în listingul 5-2 

lată şi rezultatul testării funcţiei cu fişierul din figura 5-14 pentru încărcarea 
grafului din figura 5-2 : 


Immediate 


set graf2=incarcaGrafDinFIsier ["D:1 CRETZANU_! PROGRAMARE" CURS! grafurilgraf5_2.txt") 
1->2,3,7, 

2-> 

3-> 


4->5, 
5->7,6,4, 


6->1,4, 
7->1,5, 
8-> 
9->8, 


În cazul grafurilor ponderate (etichetate), putem uşor intui că pentru fiecare 
arc în parte vom stoca în fişer şi informaţii privind costul (eticheta arcului). Spre 
exemplu, pentru graful etichetat din figura 5-3 fisierul text va avea un conţinut după 
cum ilustrează figura 5-15 (nu uităm că pentru grafurile neorientate păstrăm arcele 
în listele de adiacente ale ambelor noduri adiacente). Aşadar, informaţiile 
suplimentare le păstrăm pe aceeaşi linie, separate de asemenea prin virgulă (sau 
un alt caracter special) 


Picaa s oa Notepad 
File Edit Format View Help 


1,2,80 
1,3,60 
1,7,130 
2,1,80 
3,1,60 
4,5,120 


4, 
5,7 
5,6 
5,4 
6,1 
6,4 
6,5 
7,1 
7,5 
8,9 
9,8 


Figura 5-15 O variantă de stocare a grafurilor etichetate într-un fişier text 


De această dată funcţia de încărcare a grafului va trebui să ţină cont de faptul că 
avem de-a face cu un graf ponderat, caz în care elementele din listele de adiacentá 


vor fi constituite de obiecte din clasa Arc (vezi listingul 5-3 pentru definiţia clasei). 
Prin extragerea informaţiilor necesare de pe fiecare linie a fişierului text se vor 
încărca atributele nodAdiacent (valoarea dintre cele două virgule) şi cost (valoarea 
stocată la dreapta celei de-a doua linii) obiectului Arc. 

Funcţia din listingul 5-7 primeşte ca parametru adresa pe disc a fişierului şi 
returnează colecţia Graf care reprezintă graful ponderat încărcat din fişier 

Notă. În funcţiile utilizate în listingul 5-7, pentru identificarea datelor stocate pe 
fiecare linie a fişierului se utilizează funcţii VB specifice lucrului cu şiruri de caractere 
(vezi cap12, p. 118 din lucrarea “Visual Basic. Primii paşi... şi următorii” Polirom 
2001) 


Listing 5-7 Funcție pentru încărcarea unui graf etichetat dintr-un fişier text cu structură 
similară celei din fig. 5-15 
Function incarcaGrafPonderatDinFisier(filePath As String) As Collection 


Dim graf As Collection 
Dim noduriAdiacente As Collection 
Dim v arc As arc 
Set graf = New Collection 
Open filePath For Input As #1 
'preiau numarul de noduri (prima linie din fisier) 
Line Input +1, NrNoduri 
' initializez elementele-colectie ale grafului 
For i = 1 To Val(NrNoduri) 
graf.Add New Collection 
Next 


' incarc arcele unul cate unul prin citirea cate unei linii din fisier 
nodInitial = "" 
nodFinal = "" 
cost = "" 
Do While Not EOF(1) 
' citesc următoarea linie din fişier 
Line Input +1, ArcString 
' extrag poziţiile delimitatorilor (virgulelor) 
pozitieVirgula = InStr(ArcString, ",") 
pozitieVirgula2 = InStr(pozitieVirgula + 1, ArcString, ",") 
' extrag cele trei valori 
nodInitial = Left(ArcString, pozitieVirgula - 1) 
nodFinal = Mid(ArcString, pozitieVirgula + 1, pozitieVirgula2 - pozitieVirgula - 1) 
cost = Right(ArcString, Len(ArcString) - pozitieVirgula2) 
' construiesc obiectul arc 
Set v arc = New arc 
v_arc.nodAdiacent = Val(nodFinal) 
v_arc.cost = Val(cost) 
' extrag lista de adiacente a nodului Initial 
Set noduriAdiacente = graf.Item(Val(nodiInitial)) 
' adaug arcul in lista 
noduriAdiacente.Add v_ arc 
Loop 
Close +1 
' testám încărcarea grafului prin afişarea listelor de adiacentá 
nod = 1 
For Each lista In graf 
Debug.Print (nod € "->" € getStringFromColectieArce(lista)) 
nod = nod + 1 
Next 


Set incarcaGrafPonderatDinFisier = graf 
End Function 


Se observă că pentru testarea încărcării grafului ponderat am apelat la funcţia 
definită în acest sens în secţiunea 5.2.3, listing 5-5. 

lată şi rezultatul testării funcţiei cu fişierul din figura 5-15, pentru încărcarea 
grafului neorientat etichetat din figura 5-3 


set graf=incarcaGrafPonderatDinFisier("D:1CRETZANU_ Y PROGRAMARE) CURS grafurilgraf5_3.txt") 
1->28%80, 3460, 784130, 

2->1#80, 

3->1#60, 

4->5#120, 6#100, 

5->7#100, 6#100,4#120, 


6->1#100,4#100,5#100, 
7->1#130, 5#100, 
8->9#50, 

9->8#50, 


5.3. Parcurgerea grafurilor 


Rezolvarea unui mare număr de probleme legate de grafuri presupune explorarea 
grafului pornind dintr-un anumit nod., altfel spus “vizitarea” tuturor nodurilor sale 
începând cu un nod dat. In majoritatea cazurilor, o dată obținute aceste noduri 
(pentru care există un drum ce pleacă din punctul de start şi se opreşte în nodul 
respectiv), se efectuează diverse prelucrări prin inspectarea informaţiilor nodurilor 
sau a informaţiilor asociate arcelor, după caz. 

Parcurgerea unui graf trebuie să respecte următoarea regulă: trecerea de la un 
nod la altul nu se poate face oricum ci doar de-a lungul unui arc direct dintre ele. 

Ideea centrală ce stă la baza algoritmilor de parcurgere a unui graf este 
următoarea: se utilizează două mulţimi de noduri, sá le zicem Gasite si 
Neexplorate cu următoarele semnificaţii: 

e Gasite este mulţimea nodurilor vizitate (sau descoperite, sau la care s-a 
ajuns dintr-un alt nod) 

e Neexplorate este o submulțime a lui Gasite, având noduri ai căror vecini 
au fost doar partial exploraţi 


Astfel, esenţa algoritmului ar putea fi descrisă astfel: 
ExplorareGraf ( nodStart) 

Gasite € nodStart 

Neexplorate € Gasite 

Do WHILE Neexplorate <> multimea vidá 
alege un nod v din Neexplorate 
gaseste (v,w) urmátorul arc negasit care pleacá din v 
IF (v,w) nu exista 


sterge v din Neexplorate 


ELSE 
IF w % Gasite 
Adauga w la Gasite 
Adaugă w la Neexplorate 
ENDIF 
ENDIF 
END WHILE 


În funcţie de modalitatea de implementare a algoritmului de mai sus se cunosc 
două moduri de explorare: 
5. În lărgime (sau în lăţime) 
6. În adâncime 
Pentru o mai uşoară înţelegere aacestor tehnici de parcurgere este cel mai 
indicat să apelăm la un arbore orientat etichetat. 


© © © E 


Figura 5-16. Arbore orientat etichetat pentru testarea tehnicilor de parcurgere 


5.3.1. Parcurgerea ín látime 


Această tehnică de parcurgere a nodurilor unui graf constă în identificarea tuturor 
nodurilor adiacente nodului de start, după care se continuă cu primul nod adiacent 
găsit anterior şi se identifică toate nodurile adiacente acestuia ş.a.m.d. 

În cazul arborelui din figura 5-16 , dacă nodul de start este 2, algoritmul va găsi 
mai întâi nodurile 3,4,5 apoi, explorând nodul 3 va găsi nodul 6 , apoi, explorând 
nodul 4 va găsi nodurile 7 şi 8. Mai precis, explorarea în lărgime continuă 
întotdeauna cu primul nod vizitat care mai are arce neexplorate. 

Modalitatea clasică de implementare a acestui algoritm are la bază o structură de 
date denumită coadă. O coadă este o listă de elemente (o structură dinamică de 
date) care funcţionează pe principiul FIFO (First In First Out) , adică primul element 
introdus în coadă va fi şi primul extras pentru prelucrare. Odată cu extragerea 
elementului pentru prelucrare, acesta va fi şi eliminat din coadă, astfel încât 
următorul element ce va fi prelucrat va fi cel adăugat ulterior primului, ş.a.m.d 


Pentru că, tradiţional, această structură se implementează prin intermediul 
pointerilor, în VB va trebui să recurgem la un artificiu: vom utiliza o colecţie (un 
obiect Collection ) astfel: 


Initializare: Dim coada as Collection 
Adáugare element: coada.add (element) 
Extragere prim element: coada.item(1) 


coada. remove(1) 


Funcţia din listingul 5-8 ce implementează algoritmul pentru grafuri neetichetate 
va primi ca parametru colecţia Graf (ce reprezintă graful anterior încărcat) şi nodul 
de start şi va construi o colecţie, denumită noduriTangibile, ce va conţine toate 
nodurile la care se poate ajunge din nodul de start. De asemenea, va utiliza o 
colecţie denumită coadă (ce va fi prelucrată în sensul descris mai sus) pentru 
stocarea nodurilor ce nu au fost găsite la un pas anterior şi care urmează a fi 
explorate. Vectorul Gasite va avea tot atâtea elemente câte noduri sunt, un nod 
gasit fiind marcat în acest vector la poziţia respectivă prin valoarea 1 iar un nod care 
nu a fost încă găsit fiind marcat prin valoarea 0 (zero) 

Pe scurt, algoritmul poate fi descris astfel: 
ParcurgelnLatime (nodStart): 
Gasite (nodStart)=1 
Adauga nodStart in coada 
DO WHILE coada nu este vida 
nodCurent € primul element din coada 
pentru fiecare nod adiacent lui nodCurent 
IF nodAdiacent nu este marcat in vectorul Gasite 
adauga nodAdiacent in coada 
marcheaza Gasite(nodAdiacent)=1 
adauga nodAdiacent in colectia noduriTangibile 
END IF 


Sterge nodCurent din coada 
END WHILE 


Astfel, în urma execuţiei funcţiei, procedura apelantá va dispune de o colecţie 
cuprinzând toate nodurile la care se poate ajunge din nodul de start, urmând a se 
efectua prelucrările necesare asupra acestora. 

lată şi codul sursă VB al acestei funcţii: 


Listing 5-8 Definiţia funcţiei pentru parcurgerea în lăţime a unui graf pornind dintr-un 
anumit nod 
Function parcurgelnLatime(graf As Collection, nodStart As Integer) 
' initializez vectorul gasite 


numarnoduri = graf.Count 
Dim gasite() As Integer 


For i = 1 To numarnoduri 
ReDim Preserve gasite(i) 
gasite(i) = 0 

Next 


Dim listaAdj As Collection 
Dim noduriTangibile As Collection 
Dim coada As Collection 


Set noduriTangibile = New Collection 
Set coada = New Collection 


' introduc in coada nodul de start ca prim element si il marchez ca gasit 
coada.Add (nodStart) 
gasite(nodStart) = 1 


Do While coada.Count < > 0 ' cat timp coada nu este vida 


' extrag primul nod din coada 
nodCurent = coada.Item(1) 


extrag din graf lista de noduri adiacente nodului curent 
Set listaAdj = graf.Item(nodCurent) 


adaug la sfarsitul cozii numai nodurile adiacente nodului curent negasite anterior 
For Each nodAdiacent In listaAdj 
If gasite(nodAdiacent) = 0 Then 

coada.Add (nodAdiacent) 


marchez nodul ca gasit si il adaug in lista nodurilor tangibile 
gasite(nodAdiacent) = 1 
noduriTangibile.Add nodAdiacent 
End If 
Next 


'sterg nodul curent din coada pentru ca am terminat cu el 
coada.Remove (1) 


' doar pentru testare afisam fiecare pas din prelucrarea cozii: 
Debug.Print ("nodCurent:" 8 nodCurent 8 j lista adiacente: " & 
getStringFromColectie(listaAdj) & " coada: " € getStringFromColectie(coada)) 
Loop 


Set parcurgelnLatime = noduriTangibile 


End Function 


Pentru a testa funcţia, vom reprezenta arborele din figura 5-16 într-un fişier, 
ignoránd deoacamdatá etichetele (pentru grafuri ponderate vom modifica putin 
functia) 
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Figura 5-17 fisierul text ce stocheaza graful din figura 5-16 (fără etichete) 


lată şi procedura de testare a parcurgerii  grafului (funcția 
încarcaGrafDinFisier() o regasim în listingul 5-6 . 


Sub testParcurgereGraf(fisierSursa As String, nodStart As Integer) 
Dim noduriTangibile As Collection 


Dim graf As Collection 
Set graf = incarcaGrafDinFisier(fisierSursa) 


Set noduriTangibile = parcurgeInLatime(graf, nodStart) 


Debug.Print ("din nodul: " € nodStart € "se poate ajunge la urmatoarele noduri :") 
Debug.Print (getStringFromColectie(noduriTangibile)) 


End Sub 
lată şi rezultatul obținut prin invocarea procedurii (conform definiţiei funcției de 


parcurgere din listingul 5-8, paşii intermediari sunt afisati pentru o mai rapidă 
înţelegere a functionalitátii acesteia): 


Immediate 


TestParcurgereGraf "D:1CRETZANU_| PROGRAMARE, CURS" grafurilgraf5_16.txt",2 
nodCurent:2 lista adiacente:3,4,5, coada: 3,4,5, 
nodCurent:3 lista adiacente:6, coada: 4,5,6, 
nodCurent:4 lista adiacente:?,8, coada: 5,6,7,8, 
nodCurent:5 lista adiacente: coada: 6,7,8, 
nodCurent:6 lista adiacente: coada: 7,8, 
nodCurent :? 
nodCurent:8 


lista adiacente: coada: 8, 

lista adiacente: coada: 

din nodul: 2se poate ajunge la urmatoarele noduri : 
3,4,5,6,7,8, 


Pentru grafuri ponderate (etichetate) trebuie să aducem câteva modificări 
funcţiei datorită faptului că listele de adiacentá conţin obiecte Arc (listing 5-3) si nu 
valori întregi reprezentând indicele nodurilor. În acelaşi timp, colecția 


noduriTangibile va conţine în final obiecte Arc din care va putea fi extras costul 
arcului pentru diverse prelucrări în procedura apelantă. 

Definiţia noii funcţii o regăsim în listingul următor (secvențele evidenţiate bold 
sunt cele modificate) 


Function parcurgelnLatimeGrafPonderat(graf As Collection, nodStart As arc) 
'initializez vectorul gasite 

numarnoduri = graf.Count 

Dim gasite() As Integer 


For i = 1 To numarnoduri 
ReDim Preserve gasite(i) 
gasite(i) = 0 

Next 


Dim v_arc, nodCurent As arc 


Dim listaAdj As Collection 

Dim noduriTangibile As Collection 
Set noduriTangibile = New Collection 
Dim coada As Collection 

Set coada = New Collection 


coada.Add nodStart 
gasite(nodStart.nodAdiacent) = 1 
Do While coada.Count <> 0 ' cat timp coada nu este vida 
' extrag primul nod din coada 
Set nodCurent = coada.Item(1) 
'extrag lista de arce din graf pentru nodul curent 
Set listaAdj = graf.Item(nodCurent.nodAdiacent) 


'adaug la sfarsitul cozii numai nodurile adiacente nodului curent negasite anterior 
For Each v_arc In listaAdj 

If gasite(v_arc.nodAdiacent) = 0 Then 
coada.Add v_arc 
'marchez nodul ca gasit si il adaug in lista nodurilor tangibile 
gasite(v_arc.nodAdiacent) = 1 
noduriTangibile.Add v_arc 

End If 


Next 
Debug.Print  ("nodCurent:" 8  nodCurent.nodAdiacent & " lista adiacente:" 4 
getStringFromColectieArce(listaAdj) € " coada: " 6 getStringFromColectieArce(coada)) 


'sterg nodul curent din coada pentru ca am terminat cu el 
coada.Remove (1) 
Loop 


Set parcurgelnLatimeGrafPonderat = noduriTangibile 


End Function 


Observatie: functia getStringFromColectieArce o regasim ín listingul 5-5 
Pentru testare,în mod similar sectiuniilor anterioare, vom reprezenta mai întâi 
arborele orientat ponderat din figura 5-16 într-un fişier text : 


Picaa 16 ponderati. M efx) 


Fie Edit Format View Help 


Figura 5-18 fisier text pentru stocarea arborelui orientat etichetat din figura 5-16 


Procedura de testare: 


Sub testParcurgereGrafPonderat(fisierSursa As String, nodStart As Integer) 
Dim noduriTangibile As Collection 


Dim graf As Collection 

Set graf = incarcaGrafPonderatDinFisier(fisierSursa) 
'afisam graful pentru a testa incarcarea corecta 
Dim objNodStart As arc 

Set objNodStart = New arc 

objNodStart.nodAdiacent = nodStart 


Set noduriTangibile = parcurgeInLatimeGrafPonderat(graf, objNodStart) 


Debug.Print ("din nodul: " € nodStart € "se poate ajunge la urmatoarele noduri :") 
Debug.Print (getStringFromColectieArce(noduriTangibile)) 


End Sub 


Rezultatul testării pentru nodul 2 (funcţia de transformare în şir de caractere a 
colecţiilor de arce, getStringFormColectieArce() ia în considerare şi costul fiecărui 
arc - vezi listing 5-5): 


TestParcurgereGrafPonderat "D:1 CRETZANU_| PROGRAMARE) CURS grafuri graf5 16 Ponderat.txt",2 
nodCurent:2 lista adiacente:3410,4420,5410, coada: 240,3410,4420,5410, 
nodCurent:3 lista adiacente:645, coada: 3#10,4#20,5#10,6#5, 
nodCurent:4 lista adiacente:7430,845, coada: 4420,5410,645,7430,845, 
nodCurent:5 lista adiacente: coada: 5#10,6#5,7#30,8#5, 

nodCurent:6 lista adiacente: coada: 6#5,7#30,8#5, 

nodCurent:? lista adiacente: coada: 7430,845, 

nodCurent:8 


lista adiacente: coada: 845, 
din nodul: 2se poate ajunge la urmatoarele noduri : 
3410,4420, 5410, 645, 7830,845, 


Va urma... 


